﻿Public Class Ncostos
    Private objlista As Datos.Dcostos

    Public Function combocostos(ByVal texto As String) As DataTable

        Dim oDatos As New Datos.Dcostos
        Try
            Return oDatos.llenarcombocostostipo(texto)

        Catch ex As Exception
            Throw New ArgumentException(ex.Message)
        Finally
            oDatos = Nothing
        End Try
    End Function

    Public Function combocostostipo2(ByVal texto As String) As DataTable

        Dim oDatos As New Datos.Dcostos
        Try
            Return oDatos.llenarcombocostostipo2(texto)

        Catch ex As Exception
            Throw New ArgumentException(ex.Message)
        Finally
            oDatos = Nothing
        End Try
    End Function


    Public Function buscarCosto(ByVal costos As Entidades.Ecostos) As List(Of Entidades.Ecostos)

        Dim oDatos As New Datos.Dcostos
        Try
            Return oDatos.buscarCosto(costos)

        Catch ex As Exception

            Throw New ArgumentException(ex.Message)
        Finally

            oDatos = Nothing
        End Try
    End Function

    


End Class


